home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS01.ADF / ABasicStuff / Graphics / Wheels.bas < prev    next >
BASIC Source File  |  1985-12-08  |  2KB  |  62 lines
  1. 10    '  ***  Wheels  ***
  2. 20    '  ***  by Jungbo Yang  ***
  3. 30    '  ***    (really !)    ***
  4. 40    '  ***  From the April 1984 issue  ***
  5. 50    '  ***  of ANTIC magazine  ***
  6. 60    '
  7. 70    '  **  Translated from the Atari  **
  8. 80    '  **  by David Milligan, 70707,2521  **
  9. 90    '  ***       11/4/85       ***
  10. 100   '  ***  an interesting graphics toy  ***
  11. 110   '
  12. 120   '  ***  R  - rotation angle (0-359)  ***
  13. 130   '  ***  VX - horz. variation factor  ***
  14. 140   '  ***  VY - vert.    "        "     ***
  15. 150   '  
  16. 160   '  ***  The input variables are supposed  ***
  17. 170   '  ***  to be whole numbers, but you can  ***
  18. 180   '  ***  conjure up some bizzarre and      ***
  19. 190   '  ***  intriguing patterns using floats. ***
  20. 200   '
  21. 210   '  ***          sample inputs             ***
  22. 220   '
  23. 230   '  ***  10,0,0    -  circle (36 segments)
  24. 240   '  ***  1,200,200  -  patterned diamond
  25. 250   '  ***  7,100,200  -  endless diamond & circle
  26. 260   '  ***  .5,.5,.6   -  balloon
  27. 270   '  ***  .5,.314,100  -  EEG for a Kdatylno
  28. 280   '  ***  1,5,.9    -  my signature (so they tell me)
  29. 290   '  ***  .5,12,312, 2,300,500, 7,100,200, etc.
  30. 300   '
  31. 310   '  ***  Click left mouse button to return to  ***
  32. 320   '  ***  input prompt while drawing or when finished  ***
  33. 330   '
  34. 340   '
  35. 350   ask window w%,h%:if w%<600 then screen 1,4,0
  36. 360   scnclr
  37. 370   rgb 0,0,0,0
  38. 380   rgb 1,15,15,15
  39. 390   rgb 3,15,6,0:rgb 9,0,0,15
  40. 400   rgb 10,3,6,15
  41. 410   rgb 11,7,7,15:rgb 12,12,0,14
  42. 420   rgb 13,15,2,14
  43. 430   col=2:cnt=0
  44. 440   pena col:cx=320:cy=80:deg=pi/180
  45. 450   draw(cx,cy+70):inc=0
  46. 460   input "R,VX,VY ";rot,vx,vy
  47. 470   rgb 15,0,0,0
  48. 480   inc=inc+rot
  49. 490   if vx=0 then nx=int(sin(inc*deg)*140):goto 510
  50. 500   nx=int(sin(inc*deg)*abs(sin((inc*deg)*vx))*140)
  51. 510   ny=int(cos(inc*deg)*abs(cos((inc*deg)*vy))*70)
  52. 520   cnt=cnt+1:if cnt<61 then 560
  53. 530   cnt=0
  54. 540   col=col+1:if col=15 then col=2
  55. 550   pena col
  56. 560   draw(to nx+cx,ny+cy)
  57. 570   ask mouse x%,y%,b%:if b%<>0 then 590
  58. 580   if ny<70 then 480
  59. 590   ask mouse x%,y%,b%:if b%=0 then 590
  60. 600   rgb 15,11,11,11
  61. 610   goto 360
  62.